home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / modules / nessus-2.2.8.mo / usr / lib / nessus / plugins / egroupware_detect.nasl < prev    next >
Text File  |  2005-01-14  |  2KB  |  93 lines
  1. #
  2. # (C) Tenable Network Security
  3. #
  4.  
  5. if(description)
  6. {
  7.  script_id(15720);
  8.  script_version("$Revision: 1.2 $");
  9.  
  10.  name["english"] = "EGroupWare Detection";
  11.  
  12.  script_name(english:name["english"]);
  13.  
  14.  desc["english"] = "
  15. The remote host is running eGroupWare, a web-based groupware solution. 
  16. See http://www.egroupware.org for more information.
  17.  
  18.  
  19. Risk factor: None";
  20.  
  21.  script_description(english:desc["english"]);
  22.  
  23.  summary["english"] = "Detects the presence of EGroupWare";
  24.  
  25.  script_summary(english:summary["english"]);
  26.  
  27.  script_category(ACT_GATHER_INFO);
  28.  
  29.  script_copyright(english:"This script is Copyright (C) 2004 Tenable Network Security");
  30.  family["english"] = "CGI abuses";
  31.  family["francais"] = "Abus de CGI";
  32.  script_family(english:family["english"], francais:family["francais"]);
  33.  script_dependencie("http_version.nasl");
  34.  script_require_ports("Services/www", 80);
  35.  exit(0);
  36. }
  37.  
  38. #
  39. # The script code starts here
  40. #
  41.  
  42.  
  43. include("http_func.inc");
  44. include("http_keepalive.inc");
  45.  
  46. port = get_http_port(default:80);
  47.  
  48. if(!get_port_state(port))exit(0);
  49. if(!can_host_php(port:port))exit(0);
  50.  
  51. dirs = "";
  52.  
  53.  
  54.  
  55.  
  56. function check(loc)
  57. {
  58.  req = http_get(item:string(loc, "/login.php"), port:port);
  59.  
  60.  r = http_keepalive_send_recv(port:port, data:req, bodyonly:1);
  61.  if( r == NULL )exit(0);
  62.  if('eGroupWare' >< r && egrep(pattern:"<a href=.*www\.egroupware\.org.*eGroupWare</a> ([0-9.])*", string:r) ) 
  63.  {
  64.     version_str = egrep(pattern:".*www.egroupware.org.*eGroupWare</a> ([0-9.]*)</div>.*", string:r);
  65.     version_str = chomp(version_str);
  66.      version = ereg_replace(pattern:".*www.egroupware.org.*eGroupWare</a> ([0-9.]*)</div>", string:version_str, replace:"\1");
  67.     if ( loc == "" ) loc = "/";
  68.     set_kb_item(name:"www/" + port + "/egroupware",
  69.             value:version + " under " + loc );
  70.     
  71.     dirs += loc + '\n';
  72.  }
  73. }
  74.  
  75. foreach dir (cgi_dirs())
  76. {
  77.  check(loc:dir);
  78. }
  79.  
  80. if ( dirs ) 
  81. {
  82. report = "
  83. The remote host is running eGroupWare, a web-based groupware solution. 
  84. See http://www.egroupware.org for more information.
  85.  
  86. EGroupWare is installed under the following location(s) :
  87. " + dirs + "
  88.  
  89. Risk Factor : None";
  90.  security_note(port:port, data:report);
  91. }
  92.  
  93.